home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / grafik / 3d & render tools / raystorm / examples / arexx / textures.ray < prev    next >
Encoding:
Text File  |  1996-07-16  |  1.8 KB  |  89 lines
  1. /***************
  2.  * NAME:        Textures.ray
  3.  * DESCRIPTION: Demonstration of the textures
  4.  * AUTHOR:      Andreas Heumann & Mike Hesser
  5.  ***************/
  6.  
  7. signal on error
  8.  
  9. options results
  10.  
  11. IF ~show('P','RAYSTORM') THEN DO
  12.     address COMMAND 'run >NIL: <NIL: /RayStorm'
  13.     address COMMAND WaitForPort RAYSTORM
  14. END  
  15.  
  16. address RAYSTORM
  17.  
  18. 'TEXTUREPATH /textures'
  19. 'OBJECTPATH /objects'
  20.  
  21. 'SETSCREEN 160 128'
  22. 'SETCAMERA <10,20,20> <3,0,3> <0,1,0> 25 20'
  23. 'SETWORLD [20,20,50]'
  24. 'POINTLIGHT <20,20,20>'
  25.  
  26. /* texture definitions */
  27.  
  28. 'NEWSURFACE BUMP'
  29. 'DIFFUSE [30,30,255]'
  30. 'SPECULAR [0,0,0]'
  31. 'IMTEXTURE bump.itx <0,0,0> <0,0,0> <.3,.3,.3> 1 1 1'
  32.  
  33. 'NEWSURFACE CHECKER'
  34. 'SPECULAR [0,0,0]'
  35. 'IMTEXTURE checker.itx <0.1,0.1,0.1> <0,0,0> <.5,.5,.5>'
  36.  
  37. 'NEWSURFACE LINEAR'
  38. 'DIFFUSE [255,255,0]'
  39. 'SPECULAR [0,0,0]'
  40. 'IMTEXTURE linear.itx <0,-.8,0> <0,0,0> <1,2,1> 255 0 0'
  41.  
  42. 'NEWSURFACE MARBLE'
  43. 'SPECULAR [0,0,0]'
  44. 'IMTEXTURE marble.itx <0,0,0> <0,0,0> <1,1,1> 150 50 50 0 0 0 0 0 0 7'
  45.  
  46. 'NEWSURFACE RADIAL'
  47. 'DIFFUSE [255,25,255]'
  48. 'SPECULAR [0,0,0]'
  49. 'IMTEXTURE radial.itx <3,0,3> <0,0,0> <1,1,1> 1 2 0 0 255'
  50.  
  51. 'NEWSURFACE STARS'
  52. 'DIFFUSE [0,0,0]'
  53. 'SPECULAR [0,0,0]'
  54. 'IMTEXTURE stars.itx <0,0,0> <0,0,0> <1,1,1> 255 255 255 1'
  55.  
  56. 'NEWSURFACE WOOD'
  57. 'DIFFUSE [200,100,0]'
  58. 'SPECULAR [0,0,0]'
  59. 'IMTEXTURE wood.itx <0,0,0> <0,0,0> <0.7,0.7,0.7> 255 180 50 0 0 0 0 0 0 1 1'
  60.  
  61. /* objects */
  62.  
  63. 'LOADOBJ cube.iob <0,0,0> SURFACE=STARS'
  64. 'LOADOBJ cube.iob <0,0,0> SURFACE=MARBLE'
  65.  
  66. 'SPHERE BUMP <3,1,0.5> 1.3'
  67.  
  68. 'LOADOBJ cube.iob <6,0,0> SURFACE=CHECKER'
  69.  
  70. 'LOADOBJ cube.iob <0,0,3> SURFACE=LINEAR'
  71.  
  72. 'LOADOBJ cube.iob <3,0,3> SURFACE=RADIAL'
  73.  
  74. 'LOADOBJ cube.iob <6,0,3> SURFACE=STARS'
  75.  
  76. 'LOADOBJ cube.iob <0,0,6> SURFACE=WOOD'
  77.  
  78. 'STARTRENDER QUICK'
  79. 'SAVEPIC textures.iff'
  80. 'CLEANUP'
  81.  
  82. exit 0
  83.  
  84. error:
  85. say "Error" rc "in line" sigl ":"
  86. GETERRORSTR rc
  87. say result
  88. exit 0
  89.